@  5,55 SAY PAT_FILCOD
SET COLO TO GR+/B,W+/N
@  8,14 SAY PAT_NAME
@  8,44 SAY PAT_F_NAME
@  8,75 SAY PAT_M_INIT
@  9,19 SAY PAT_DOB
@  9,44 SAY PAT_NATIO
@  9,75 SAY PAT_SEX
IF HEALTHLINE .AND. HL_END>DATE()
   SET COLO TO GR+*/B,W+/N
   @ 10, 6 SAY "HEALTHLINE MEMBER UNTIL : "+DTOC(HL_END)
ENDIF
IF AEA_MEMBER .AND.AEA_ENDATE>DATE()
   SET COLO TO GR+*/B,W+/N
   @ 10,44 SAY "AEA MEMBER UNTIL : "+DTOC(AEA_ENDATE)
ENDIF
SET COLO TO GR+/B,W+/N
Codco=pat_codcrp
if codco=space(4) .or. codco='0000'
   @ 11, 22 say "NO COMPANY recorded for this PATIENT"
ELSE
   corp=space(56)
   sele 2
   go top
   seek codco
   If EOF()
      SELE 1
      @ 11, 22 say "NO COMPANY recorded for this PATIENT"
   ELSE
      CORP=COMP_NAME
      @ 11, 6 SAY "COMPANY :"
      @ 11,16 SAY CORP
      @ 11,72 SAY CODCO
      SELE 1
   ENDIF
ENDIF
DO ADDRCONF
mx=0
RETURN